home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a15.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  35 lines
  1. 1040 'A15.BAS ********************************************* By T.K MOSAKU
  2. 1050 SCREEN@ 0:WINDOW(0,0)-(640,480)
  3. 1060 CLS:PI=3.14159!
  4. 1070 A$="☆☆☆ 四角形を楕円周の上に書き重ねています｡ ☆☆☆"
  5. 1080 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:COLOR 7:PRINT SPACE$(B)+A$
  6. 1090 T1=TIME:S=0 
  7. 1100 FOR C=1 TO 3
  8. 1110   READ D,E
  9. 1120   FOR K=-30 TO .5! STEP .5!
  10. 1130     FOR I=K TO K+360 STEP 60
  11. 1140       T=I/180*PI:U=(I+30)/180*PI
  12. 1150       A=COS(T*12)*110+30
  13. 1160       B=COS(T*12)*110+30
  14. 1170       X0=B*COS(U)+320:Y0=B*SIN(U)+239
  15. 1180       Y1=A*SIN(T)+240:X1=A*COS(T)+320
  16. 1190       IF I=INT(I/60)*60 THEN E=D-E
  17. 1200       LINE(X0,Y0)-(X1,Y1),PSET,E,B
  18. 1210       S=S+1
  19. 1220     NEXT 
  20. 1230   NEXT 
  21. 1240   IF C=3 THEN GOTO 1290
  22. 1250   T2=TIME:T=T2-T1:LOCATE 5,1:COLOR C+2
  23. 1260   PRINT "描き上げる時間--";T;"秒  描いた四角形の数--";S;"個" 
  24. 1270   WAIT 100
  25. 1280   T1=TIME:S=0
  26. 1290 NEXT 
  27. 1295 '
  28. 1300   T2=TIME:T=T2-T1:LOCATE 5,1:COLOR C+2
  29. 1310   PRINT "消すまでの時間--";T;"秒  消した四角形の数--";S;"個" 
  30. 1320   WAIT 100
  31. 1330 GOTO 1350
  32. 1335 '
  33. 1340 DATA 3,3,1,1,0,0
  34. 1350 '
  35.